Option Explicit
Sub B_Sample005()
    Dim myRng As Range
    Set myRng = Range("A1")	'Nxs
    With myRng
        .Clear				'xs檺M
        .Formula = "=B1+C1"	']w
        'ǳƨ즹
        MsgBox "xs" & .Address & "ثe" & vbCrLf & _
        "A1榡U" & .Formula & vbCrLf & _
        "R1C1榡U" & .FormulaR1C1 & "C"
    End With
    Set myRng = Nothing		'
End Sub
